home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy: Best of 1985
/
Ahoy_Best_of_1985_1986_Double_L.d64
/
midprint j'85
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
45 lines
100 poke53281,1:print"[147]"
102 gosub410
103 printtab(4)"[147]enter (zzz) when composition finished"
104 forc=1to3000:next
105 printchr$(147);tab(8)"upper or lower case? (u/l)"
107 getc$:ifc$=""then107
108 ifc$="l"thenpoke53272,23:goto115
109 ifc$="u"thenpoke53272,21:goto115
110 ifc$<>"l"orc$<>"u"then107
115 dima$(25):print"[147]"
120 forn=1to23
130 print"enter line #"n:inputa$(n):ifa$(n)="zzz"then145
140 nextn
145 print"[147]"
146 w=10-int(n/2)
147 forz=1tow:print"";:nextz
150 forx=1to23
160 t=int(40-len(a$(x)))/2
165 ifa$(x)="zzz"then185
170 printtab(t)a$(x)
180 nextx
185 print"[154] press f1 to print screen-f3 to renew "
190 getf$:iff$=""then190
200 iff$="[133]"then300
210 iff$="[134]"thenrun
300 ifpeek(53272)=23thenm=7
305 open1,4,m:ifan<>1then310
307 forf=1to37:print#1:nextf
310 forx=1to24
320 ifa$(x)="zzz"thenclose1:goto360
330 l=len(a$(x)):s=int(l/2):t=20-s
335 ifan=1thenprint#1,chr$(15)tab(t+40)a$(x):goto350
340 print#1,chr$(14)tab(t)a$(x)
350 nextx
360 print"[154] f1 to reprint-f3 to rerun "
370 getr$:ifr$=""then370
380 ifr$="[133]"then300
390 ifr$="[134]"thenrun
400 goto370
410 print"do you want announcement print format?":printtab(15)"(y/n)"
420 getan$:ifan$=""then420
430 ifan$="y"thenan=1:return
440 ifan$="n"thenan=0:return
450 goto420